Pin lazily read bytecode (bug#53809)

* src/eval.c (Ffetch_bytecode): Bytecode strings read lazily weren't
pinned as they must be.  Do so.

Bug reported by Gregor Zattler.

diff --git a/src/eval.c b/src/eval.c
index c87b1bc704cc357722131e9a1bac1c9ea31d1885..ae9b18da0bdd78cb646b4afca4fdb1f33eec04d3 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -3495,6 +3495,7 @@ DEFUN ("fetch-bytecode", Ffetch_bytecode, Sfetch_bytecode,
              bytecode = Fstring_as_unibyte (bytecode);
            }
 
+         pin_string (bytecode);
          ASET (object, COMPILED_BYTECODE, bytecode);
          ASET (object, COMPILED_CONSTANTS, XCDR (tem));
        }